100 REM *******************************
110 REM *******************************
120 REM ****                       ****
130 REM ****  BY BRIAN A.MITCHELL  ****
140 REM ****                       ****
150 REM ****  BROCKVILLE, ONTARIO  ****
160 REM ****                       ****
170 REM ****     613-342-0733      ****
180 REM ****                       ****
190 REM ****       JUL 1984        ****
200 REM ****                       ****
210 REM ****      TPUG# 2923       ****
220 REM ****                       ****
230 REM *******************************
240 REM *******************************
250 REM
260 FORL=54272TO54296:POKEL,0:NEXT:L=0
270 DIML$(30):DIMNB(300):DIMSC(300):DIMT(300):PL=1
280 POKE53280,0:POKE53281,0:PRINT"[147][152]":POKE54296,15
290 PRINT""
300 PRINTTAB(13)" THE NAME GAME "
310 PRINT""
320 PRINTTAB(22)"BY-BRIAN MITCHELL"
330 FORT=1TO3000:NEXTT:PRINT"[147]"
340 PRINTTAB(14)"THE NAME GAME"
350 PRINTTAB(14)"[197][197][197][197][197][197][197][197][197][197][197][197][197]"
360 PRINT"INSTRUCTIONS"
370 PRINT""
380 PRINT"ENTER ONE LETTER AT A TIME TO DETERMINE THE SOLUTION."
390 PRINT
400 PRINT"THERE IS  A  FIFTEEN SECOND  TIME LIMIT BETWEEN ENTERING LETTERS."
410 PRINT
420 PRINT"WHEN YOU HAVE THE  SOLUTION  PRESS  THE  F1 [146] KEY."
430 PRINT
440 PRINT"YOU MAY USE UP TO FIFTEEN LETTERS."
450 PRINT"ENTER NUMBER OF PLAYERS (1-5)> [185]";
460 GETX$:IFX$=""THEN480
470 GOTO520
480 FORT=1TO600:NEXTT
490 PRINT"                                "
500 FORT=1TO300:NEXTT
510 GOTO450
520 X=VAL(X$):PRINT"[157]";X$
530 IFX<1ORX>5THENPRINT"[145][145][145]":GOTO450
540 IFX>1THENAP=1
550 PRINT""
560 PRINTTAB(5)" PRESS SPACE BAR [221] [146]F2 = SCORE [155]"
570 GETAN$:IFAN$=""THEN570
580 IFAN$="[137]"THEN3690
590 IFAN$<>CHR$(32)THEN570
600 PRINT"[147]"
610 PRINT""TAB(28)"[158] VALUE [146][152] +++"
620 PRINT">>>>>>[152]"
630 PRINT"[152] CLUE "
640 PRINT" TIME [146] --"
650 IFX>1THENPRINT""TAB(30);"PLAYER [192]"
660 PRINT"                                       [152]"
670 PRINT"[152] LETTERS USED [146][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
680 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
690 CS=VAL(MID$(TI$,5,7)):UN=272-CS
700 NB=INT(CS+(UN-CS+1)*RND(1)):RESTORE
710 FORBN=0TOF
720 IFNB(BN)=NBTHENCS=1:UN=272:GOTO700
730 NEXTBN:F=F+1:NB(F)=NB
740 POKE54277,28:POKE54278,255:POKE54276,17
750 FORCL=1TO22
760 POKE54273,CL+F
770 FORT=1TO5:NEXTT
780 PRINT""TAB(CL)" [146][152] NUMBER";F;"[157] "
790 POKE54273,22+F
800 FORT=1TO10:NEXTT
810 NEXTCL:POKE54273,0
820 SC=160
830 FORCH=1TONB
840 READK,A$:NEXTCH
850 DT=INT((40-LEN(A$))/2)-1:GW=0:WG=0
860 FORA=1TOLEN(A$)
870 IFMID$(A$,A,1)=" "THEN900
880 IFMID$(A$,A,1)="'"THEN900
890 GW=GW+1
900 NEXTA
910 IFK=1THENK$="PERSON"
920 IFK=2THENK$="PLACE"
930 IFK=3THENK$="THING"
940 IFK=4THENK$="PHRASE"
950 IFK=5THENK$="TITLE"
960 PRINT">>>>>>[152]"
970 PRINT""
980 FORT=1TO400:NEXTT
990 FORA=1TOLEN(A$)
1000 IFMID$(A$,A,1)="'"THENPRINTTAB(6+A);"[155]'[152]";:SZ=60:GOSUB3250:GOTO1030
1010 IFMID$(A$,A,1)<>" "THENPRINTTAB(6+A)"[153]-[152]";:SZ=15:GOSUB3250:GOTO1030
1020 PRINTTAB(6+A);" ";:SZ=30:GOSUB3250
1030 NEXTA:PRINT
1040 FORA=1TOLEN(A$)
1050 PRINTTAB(6+A)"[197][152]";
1060 NEXTA
1070 FORT=1TO400:NEXTT
1080 PRINT"[152] CLUE [146] ";K$
1090 FORT=1TO600:NEXTT
1100 PRINT
1110 GETL$:L$=""
1120 IFNS=0THENSC=SC-10
1130 NS=0
1140 IFSC<100THENPRINT""TAB(35)"    "
1150 IFSC>-1THENPRINT""TAB(28)"[158] VALUE [146][152]";SC
1160 IFSC=0THENDN=1:GOTO2040
1170 IFWP=0THENFORT=1TO400:NEXTT:WP=1
1180 IFAP=0THEN1280
1190 POKE54277,28:POKE54278,255:POKE54276,17
1200 FORDP=1TO5
1210 PRINT""TAB(29)">PLAYER    "
1220 POKE54273,200
1230 FORT=1TO100:NEXTT
1240 PRINT""TAB(29)" PLAYER";PL
1250 POKE54273,100
1260 FORT=1TO100:NEXTT
1270 NEXTDP:AP=0:POKE54273,0
1280 PRINT"[152] TIME [146] --"
1290 POKE54277,28:POKE54278,255:POKE54276,17
1300 FORDP=1TO3
1310 PRINT"[152]L     [153] [164] "
1320 POKE54273,10
1330 FORT=1TO20:NEXTT
1340 PRINT"[152]LE    [153] [210] "
1350 POKE54273,20
1360 FORT=1TO30:NEXTT
1370 PRINT"[152]LET   [153] [195] "
1380 POKE54273,30
1390 FORT=1TO40:NEXTT
1400 PRINT"[152]LETT  [153] [196] "
1410 POKE54273,40
1420 FORT=1TO50:NEXTT
1430 PRINT"[152]LETTE [153] [197] "
1440 POKE54273,50
1450 FORT=1TO60:NEXTT
1460 PRINT"[152]LETTER[153] [197] "
1470 POKE54273,60
1480 FORT=1TO70:NEXTT
1490 NEXTDP:POKE54273,0:
1500 PRINT"[152]LETTER[153] [175]  "
1510 FORT=1TO80:NEXTT
1520 FORA=1TOLEN(A$)
1530 IFMID$(A$,A,1)=" "THEN1550
1540 PRINT""TAB(6+A)"[197][152]";
1550 NEXTA
1560 TI$="000000":CL$="[153]"
1570 PRINT"[152]LETTER [175]"
1580 GETL$
1590 IFTI$="000010"THENCL$="[158]"
1600 PRINT"";CL$;" TIME [146][152] ";MID$(TI$,5,7)
1610 IFL$=""ANDTI$<>"000015"THEN1580
1620 IFTI$="000015"THENGOSUB3810:GOSUB3840:GOTO1100
1630 PRINT""TAB(7);L$
1640 FORT=1TO100:NEXTT
1650 FORU=0TOD
1660 IFL$<>L$(U)THEN1780
1670 POKE54277,28:POKE54278,255:POKE54276,33
1680 FORDP=1TO10
1690 PRINT" LETTERS USED "
1700 POKE54273,15
1710 FORT=1TO50:NEXTT
1720 PRINT" LETTERS USED "
1730 POKE54273,0
1740 FORT=1TO50:NEXTT
1750 NEXTDP:
1760 GOSUB3810:IFX>1THENSC=SC+10
1770 GOTO1120
1780 NEXTU
1790 IFL$="[133]"THENNS=1:GOTO2040
1800 NS=0:C=0
1810 FORA=1TOLEN(A$)
1820 IFL$<>MID$(A$,A,1)THEN1840
1830 C=C+1
1840 NEXTA
1850 IFC=0THEN1960
1860 FORA=1TOLEN(A$)
1870 IFL$<>MID$(A$,A,1)THEN1930
1880 IFL$=" "THENGOSUB3220:GOTO1930
1890 IFL$="'"THENGOSUB3220:GOTO1930
1900 GOSUB3220:PRINT"[153]"TAB(6+A)"[190][152]";
1910 PRINT"[155]"TAB(6+A)L$;
1920 WG=WG+1
1930 NEXTA
1940 IFWG=GWTHEN3580
1950 GOTO1980
1960 POKE54277,28:POKE54278,255:POKE54276,33:POKE54273,10
1970 FORT=1TO100:NEXTT:POKE54273,0
1980 PRINT"[152]"
1990 D=D+1:L$(D)=L$
2000 FORU=1TOD
2010 PRINTL$(U)":";:NEXTU
2020 IFC=0THENGOSUB3810
2030 C=0:GOTO1100
2040 PRINT"[154]            ENTER YOUR GUESS           [146][152]":PRINT
2050 FORA=1TOLEN(A$)
2060 IFMID$(A$,A,1)="'"THENPRINTTAB(A+DT)"'";:GOTO2090
2070 IFMID$(A$,A,1)=" "THENPRINTTAB(A+DT)" ";:GOTO2090
2080 PRINTTAB(A+DT)"-";
2090 NEXTA
2100 TI$="000000":CL$="[153]"
2110 FORA=1TOLEN(A$)
2120 PRINT""TAB(A+DT-1);" ^";
2130 IFMID$(A$,A,1)="'"THEN2220
2140 GETG$
2150 IFTI$="000015"THENCL$="[158]"
2160 PRINT"";CL$;" TIME [146][152] "MID$(TI$,5,7);"[152]"
2170 IFG$=""ANDTI$<>"000030"THEN2140
2180 IFDN=1ANDTI$="000030"THENGOSUB3970:GOSUB3810:GOTO3470
2190 IFTI$="000030"THENGOSUB3970:GOSUB3810:GOSUB3150:GOTO1100
2200 PRINT""TAB(A+DT);G$;
2210 IFG$<>MID$(A$,A,1)THEN2260
2220 NEXTA:G$=A$:IFDN=1THENDN=0
2230 PRINT""TAB(A+DT-1);"  "
2240 SC(PL)=SC:T(PL)=T(PL)+SC(PL):GOSUB3810
2250 PRINT:D=0:WP=0:GOSUB3300:GOTO550
2260 PRINT""TAB(A+DT-1);"  "
2270 IFDN=1THENGOSUB3810:GOTO3470
2280 GOSUB3950:GOSUB3410:GOSUB3150
2290 GOSUB3810:GOTO1100
2300 DATA4,A STITCH IN TIME SAVES NINE,1,LONG JOHN SILVER,2,NEW YORK CITY
2310 DATA3,KITCHEN SINK,2,TORONTO ONTARIO,2,MONTREAL QUEBEC,1,TRUCK DRIVER
2320 DATA1,HIGHWAY PATROLMAN,2,DENVER COLORADO,4,IT TAKES ONE TO KNOW ONE
2330 DATA1,HOTEL DETECTIVE,2,CALGARY ALBERTA,3,SEWING MACHINE,1,ALICE COOPER
2340 DATA4,ALL FOR ONE AND ONE FOR ALL,1,SIR WILFRED LAURIER,1,PRESIDENT LINCOLN
2350 DATA2,ATLANTA GEORGIA,3,POPSICLE STICK,1,MARILYN MONROE,2,CHICAGO ILLINOIS
2360 DATA4,YOU WIN SOME YOU LOSE SOME,4,YOU CAN'T TAKE IT WITH YOU
2370 DATA1,FRANK SINATRA,2,MOVIE THEATRE,3,PUMPKIN PIE,1,JOHN LENNON
2380 DATA3,COMBUSTION ENGINE,4,TOO LITTLE TOO LATE,1,ALEXANDER GRAHAM BELL
2390 DATA2,FORT LAUTERDALE FLORIDA,3,ICECREAM CONE,1,THEODORE ROOSEVELT
2400 DATA2,CANARY ISLANDS,3,ANGEL FOOD CAKE,4,SEE YOU LATER ALIGATOR
2410 DATA1,CHARLTON HESTON,2,HOLLYWOOD CALIFORNIA,3,CIGARETTE BUT
2420 DATA4,TAKE A WALK ON THE WILD SIDE,1,QUEEN ELIZABETH,2,LONDON ENGLAND
2430 DATA3,CLOTHES CLOSET,4,TOO GOOD TO BE TRUE,1,HANS CHRISTIAN ANDERSON
2440 DATA2,LAS VEGAS NEVADA,3,MAPLE SYRUP FESTIVAL,1,SEAN CONNERY
2450 DATA4,IF THE SHOE FITS WEAR IT,4,DISTANT PASTURES APPEAR GREENER
2460 DATA1,MICHEAL JACKSON,1,HENRY FORD,2,BERLIN GERMANY,2,NOME ALASKA
2470 DATA3,WATERMELON SEED,3,CABBAGE PATCH DOLL,4,ONCE AND FOR ALL
2480 DATA1,PRINCE CHARLES,2,ATHENS GREECE,3,CHEST OF DRAWERS
2490 DATA4,ALL IN A DAYS WORK,1,CHRISTOPHER REEVE,1,JULES VERNE
2500 DATA2,DETROIT MICHIGAN,3,GRANDFATHER CLOCK,4,IT'S ALL UP TO YOU
2510 DATA1,LAWRENCE WELK,2,FREEPORT BAHAMAS,2,MONTGOMERY ALABAMA
2520 DATA3,BEDROOM LAMP,3,PHONOGRAPH RECORD,4,TAKE A LOAD OFF YOUR FEET
2530 DATA1,MARGARET THATCHER,2,PARIS FRANCE,3,DOG COLLAR
2540 DATA4,NOW YOU SEE IT NOW YOU DON'T,1,RONALD REAGAN,2,DAYTON OHIO
2550 DATA3,CARPET SWEEPER,4,BREAK A LEG,1,INDIANA JONES,2,CATMANDU NEPAL
2560 DATA3,BOOK MARKER,4,THE MORE THE MERRIER,1,MARK TWAIN,2,OMAHA NEBRASKA
2570 DATA3,NAIL CLIPPER,4,MONKEY SEE MONKEY DO,1,ROBERT BLAKE,1,JOHNNY CARSON
2580 DATA2,SYDNEY AUSTRALIA,2,GLASGOW SCOTLAND,3,PAINT STRIPPER,3,GOLF CLUB
2590 DATA4,LOOSE LIPS SINK SHIPS,4,SPARE THE ROD SPOIL THE CHILD,1,PETER PIPER
2600 DATA1,CARRY GRANT,2,NASHVILLE TENNESEE,3,NEWSPAPER ADVERTISEMENT
2610 DATA3,DINGBAT,1,ARCHIE BUNKER,4,GO FLY A KITE,3,MEDICINE CABINET
2620 DATA3,TOOTH BRUSH HOLDER,1,ROBIN WILLIAMS,1,MERV GRIFFIN,1,JAKE LAMOTTA
2630 DATA4,FICKLE FINGER OF FATE,4,PICK UP THE PIECES,1,SUGAR RAY LEONARD
2640 DATA1,BABE RUTH,1,WALTER CRONKITE,1,ROBERT LOUIS STEVENSON
2650 DATA2,DUBLIN IRELAND,2,WARSAW POLAND,2,MOSCOW RUSSIA,2,ACAPULCO MEXICO
2660 DATA2,EDINBURG SCOTLAND,4,GIVE ME A BREAK,4,SWEET AND SEXY
2670 DATA4,FAMOUS LAST WORDS,4,GIVE IT A REST,2,EDMONTON ALBERTA
2680 DATA4,TO BE OR NOT TO BE,1,WILLIAM SHAKESPEAR,4,TRUTH OR CONSEQUENCES
2690 DATA1,KARL MARX,1,JACK THE RIPPER,4,NAKED AS A JAYBIRD,1,CARL REINER
2700 DATA3,CARBON PAPER,1,ALBERT EINSTIEN,1,WOODY ALLEN,1,BROOKE SHIELDS
2710 DATA1,BARNEY MILLER,3,ORANGE JUICE,4,LIVE AND LET LIVE,3,HOT WATER HEATER
2720 DATA3,CHOCOLATE CHIP COOKIE,1,BERT LANCASTER,1,SIGMUND FREUD
2730 DATA3,BIRTHDAY SUIT,4,IT'S A SMALL WORLD,3,TELEPHONE POLE
2740 DATA3,AIR RAID SIREN,1,MEREDITH BAXTER BIRNEY,4,TO EACH HIS OWN
2750 DATA3,PICTURE POST CARD,2,PEKING CHINA,1,RICHARD NIXON,1,CANDICE BERGEN
2760 DATA1,CHRISTOPHER COLUMBUS,4,WHAT YOU SEE IS WHAT YOU GET
2770 DATA3,GARBAGE DISPOSAL,4,THE GREAT OUTDOORS,1,ART LINKLETTER
2780 DATA5,THE WINDS OF WAR,5,ONE FLEW OVER THE CUCKOOS NEST
2790 DATA5,AN AMERICAN WEREWOLF IN LONDON,5,THE FRENCH CONNECTION
2800 DATA1,MARTIN LUTHER KING,2,LAS VEGAS NEVADA,3,ONE ARMED BANDIT
2810 DATA5,THE EXORCIST,5,THE GREAT TRAIN ROBBERY,5,ALICE IN WONDERLAND
2820 DATA5,THE SHINING,1,JACK NICHOLSON,5,JUDGEMENT AT NUREMBURG
2830 DATA3,CUP OF COFFEE,5,THE WAY WE WERE,5,THE TONIGHT SHOW,5,THE WALTONS
2840 DATA5,THE GUNS OF NAVARONE,1,PAUL SIMON,1,ART GARFUNKEL
2850 DATA5,THE TEN COMMANDMENTS,3,BOWL OF CEREAL,5,SMOKEY AND THE BANDIT
2860 DATA5,LAST TANGO IN PARIS,1,MARLON BRANDO,5,THE LEGEND OF SLEEPY HOLLOW
2870 DATA5,THE TWILIGHT ZONE,5,THE SOUND OF MUSIC,5,JASON AND THE ARGONAUTS
2880 DATA5,THE MEANING OF LIFE,5,IT'S A MAD MAD MAD MAD WORLD
2890 DATA1,SPENCER TRACY,3,MOVIE CAMERA,2,LOS ANGELES CALIFORNIA
2900 DATA5,REVENGE OF THE PINK PANTHER,1,PETER SELLERS,3,WINDSHIELD WIPER
2910 DATA4,THE BEST IN LIFE IS FREE,1,PETER OTOOLE,5,LAWRENCE OF ARABIA
2920 DATA3,AIRPORT TERMINAL,2,LIVERPOOL ENGLAND,1,JOHN TRIVOLTA
2930 DATA1,JULIUS CAESAR,1,JOAN OF ARC,1,ABRAHAM LINCOLN,5,STORMY WEATHER
2940 DATA1,AL JOLSON,1,JUDY GARLAND,1,ELVIS PRESLEY,1,MITCH MILLER
2950 DATA1,ELTON JOHN,1,WOLFGANG AMADEUS MOZART,1,PABLO PICASSO
2960 DATA1,SALVADOR DALI,5,FIDDLER ON THE ROOF,5,MY FAIR LADY,5,HELLO DOLLY
2970 DATA5,BAREFOOT IN THE PARK,5,THE ODD COUPLE,1,MICHELANGELO
2980 DATA5,RAIDERS OF THE LOST ARK,5,ALL THE PRESIDENT'S MEN
2990 DATA1,INGRID BERGMAN,5,NANOOK OF THE NORTH,4,THE BEST YEARS OF OUR LIVES
3000 DATA5,SEARCH FOR TOMMOROW,1,CAPTAIN KANGAROO,5,AMERICAN BANDSTAND
3010 DATA5,ALL IN THE FAMILY,5,WIDE WORLD OF SPORTS,4,THROW OUT THE GAUNTLET
3020 DATA3,BLACK HOLE,1,COUNT DRACULA,1,WINSTON CHURCHILL,1,ROBIN HOOD
3030 DATA1,CHARLES DARWIN,1,SIR ISSAC NEWTON,1,LEONARDO DA VINCI
3040 DATA1,BRIGITTE BARDOT,1,MARY TYLER MOORE,1,ATTILA THE HUN
3050 DATA3,STATUE OF LIBERTY,3,THE AMERICAN REVOLUTION,1,EDGAR ALLAN POE
3060 DATA2,MINNEAPOLIS MINNISOTA,2,MILWAUKEE WISCONSIN,3,GATLING GUN
3070 DATA2,STOCKHOLM SWEDEN,2,MADRID SPAIN,4,BETTER LATE THAN NEVER
3080 DATA1,FRANCIS BACON,1,CLEOPATRA,3,SWEET POTATOES,3,ROAST BEEF,3,BEEF STEW
3090 DATA3,FRIED CHICKEN,3,ROLLER SKATES,3,SKIPPING ROPE,1,GEORGE WASHINGTON
3100 DATA1,LEO TOLSTOY,1,CHARLIE BROWN,5,THE MALTESE FALCON,5,CITIZEN KANE
3110 DATA4,AT A SNAIL'S PACE,4,JUST A MOMENT,4,ALL THE TEA IN CHINA
3120 DATA4,BEAUTY IS ONLY SKIN DEEP,4,QUICK AS A WINK,4,SELLING LIKE HOTCAKES
3130 DATA4,KNEE HIGH TO A GRASSHOPPER,4,HIGH AS A KITE,4,A KING'S RANSOM
3140 DATA4,FASTER THAN A SPEEDING BULLET,4,BLOOD IS THICKER THAN WATER
3150 FORT=1TO1800:NEXTT
3160 PRINT"                                       [152]"
3170 PRINT""TAB(23)" NUMBER";F;"[157] "
3180 FORCL=1TO5
3190 PRINT"                                       "
3200 NEXTCL
3210 RETURN
3220 POKE54277,28:POKE54278,255:POKE54276,17:POKE54273,70
3230 FORT=1TO100:NEXTT:POKE54273,0
3240 RETURN
3250 POKE54277,28:POKE54278,255:POKE54276,17:POKE54273,SZ
3260 FORT=1TO75:NEXTT
3270 POKE54273,0
3280 FORT=1TO100:NEXTT:POKE54273,0
3290 RETURN
3300 POKE54277,28:POKE54278,255:POKE54276,17
3310 FORSN=1TO10
3320 POKE54273,30
3330 PRINT"                                        "
3340 FORT=1TO20:NEXTT
3350 POKE54273,60
3360 PRINT"[153]       THAT IS ABSOLUTELY CORRECT       [152]"
3370 FORT=1TO20:NEXTT
3380 NEXTSN
3390 POKE54273,0
3400 RETURN
3410 POKE54277,28:POKE54278,255:POKE54276,17
3420 FORSN=60TO20STEP-2
3430 POKE54273,SN
3440 FORT=1TOSN:NEXTT:NEXTSN
3450 POKE54273,0
3460 RETURN
3470 PRINT"[150]        SORRY ! THE SOLUTION WAS        [152]"
3480 POKE54277,28:POKE54278,255:POKE54276,17
3490 FORSN=50TO10STEP-1
3500 POKE54273,SN
3510 FORT=1TO5:NEXTT
3520 POKE54273,50-SN
3530 FORT=1TO5:NEXTT
3540 NEXTSN
3550 POKE54273,0
3560 POKE54277,28:POKE54278,255:POKE54276,17
3570 PRINT""TAB(A+DT-1);"  "
3580 FORA=1TOLEN(A$)
3590 POKE54273,80
3600 PRINT"[152]"TAB(A+DT-1);" ^"
3610 FORT=1TO20:NEXTT
3620 PRINT""TAB(A+DT)MID$(A$,A,1)
3630 POKE54273,0
3640 FORT=1TO10:NEXTT
3650 NEXTA
3660 PRINT""TAB(A+DT-1);"  "
3670 IFWG=GWTHENGOSUB2230
3680 D=0:WP=0:DN=0:PRINT:GOTO560
3690 PRINT"[147][152]"
3700 BT=0
3710 FORSK=1TOX
3720 IFT(SK)>BTTHENBT=T(SK)
3730 NEXTSK
3740 PRINT:PRINT" NUMBER PLAYED:";F;"[157] ":PRINT:PRINT
3750 FORSK=1TOX
3760 CO$="[152]":IFBT=T(SK)THENCO$=""
3770 PRINT:PRINTCO$"        PLAYER";SK;"----- SCORE:"T(SK);"[152]"
3780 NEXTSK
3790 PRINT
3800 GOTO550
3810 IFX=1THEN3830
3820 PL=PL+1:AP=1:IFPL=X+1THENPL=1
3830 RETURN
3840 POKE54277,28:POKE54278,255:POKE54276,33
3850 FORSD=1TO10
3860 POKE54273,5
3870 PRINT" [150] TIME [146][152]15"
3880 FORT=1TO50:NEXTT
3890 POKE54273,5
3900 PRINT"[150] TIME [146][152] 15"
3910 FORT=1TO50:NEXTT
3920 NEXTSD:POKE54273,0
3930 FORT=1TO600:NEXTT
3940 RETURN
3950 PRINT"[158]         SORRY THAT IS INCORRECT       [152]"
3960 RETURN
3970 POKE54277,28:POKE54278,255:POKE54276,33
3980 FORSD=1TO10
3990 POKE54273,10
4000 PRINT" [150] TIME [146][152]30"
4010 FORT=1TO50:NEXTT
4020 POKE54273,5
4030 PRINT"[150] TIME [146][152] 30"
4040 FORT=1TO50:NEXTT
4050 NEXTSD:POKE54273,0
4060 FORT=1TO600:NEXTT
4070 RETURN